home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / REXX / OpenWrite.wrx < prev    next >
Text File  |  1993-12-26  |  2KB  |  99 lines
  1. /*
  2.  * dieses Script arbeitet genauso wie open.wrx nur das es anstatt
  3.  * dem voreingestellten Konfigurationfile, den angegebenen Konfigurationsfile
  4.  * läd
  5.  *
  6.  * usage : rx OpenWrite.wrx ConfigName [#screen] [#run] FileName
  7.  *
  8.  * CHANGE PATH IN MARKED LINE TO YOUR WRITE-PATH !!!!
  9.  *
  10.  */
  11.  
  12. IF ~show('P',"WRITE")
  13. THEN DO
  14.   ADDRESS "COMMAND"
  15.   "run >NIL: <NIL: dh0:WRITE"               /* Change this to your Path  ! */
  16.   "SYS:REXXC/WaitForPort <NIL: >NIL: WRITE"
  17. END
  18.  
  19. PARSE ARG A.1 A.2 A.3 A.4 A.5
  20.  
  21. runit      = FALSE
  22. screenit   = FALSE
  23. FileName   = ""
  24. ConfigName = ""
  25.  
  26. ConfigName = A.1
  27.  
  28. DO i = 2 TO 4
  29.   IF A.i="#run" THEN DO
  30.     runit = TRUE
  31.   END
  32.   ELSE DO
  33.     IF A.i="#screen" THEN DO
  34.       screenit = TRUE
  35.     END
  36.     ELSE DO
  37.       IF A.i~="" THEN DO
  38.         FileName=A.i
  39.       END
  40.     END
  41.   END
  42. END
  43.  
  44. FileName=strip(FileName)
  45. FileName=strip(FileName,'B','"')
  46.  
  47. IF length(FileName)~=0
  48. THEN DO
  49.   IF pos(':',FileName)=0
  50.   THEN DO
  51.    DirName=pragma('D')
  52.    IF right(DirName,1)~=':' THEN
  53.      DirName=DirName||'/'
  54.    FileName=DirName||FileName
  55.   END
  56. END
  57.  
  58. ADDRESS "WRITE"
  59.  
  60. OPTIONS RESULTS
  61.  
  62. NEWED "(" ||ConfigName|| ")"
  63. ID = RESULT
  64. OPENPORT ID
  65. Port = RESULT
  66. IF Port = ""
  67. THEN DO
  68.   "MESSAGEOK (REXX-script 'mailer.wrx' :\nSorry, no more private ports!)"
  69.   EXIT
  70. END
  71.  
  72. INTERPRET ADDRESS Port
  73.  
  74. "WINDOW 0 0 0 0"
  75.  
  76. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  77.   MODIFYSCREEN 0
  78. END
  79.  
  80. "SETVAR (_Path) ("||FileName||")"
  81. IF length(FileName)~=0
  82. THEN DO
  83.   IF exists(FileName) then
  84.     "OPEN ("||FileName||")"
  85.   ELSE
  86.     "SETVAR (_FileName) ("||FileName||")"
  87. END
  88.  
  89. IF (runit = FALSE) THEN DO
  90.   WAITPORT ID
  91. END
  92.  
  93. IF (screenit = TRUE) & (runit = FALSE) THEN DO
  94.   IF show('P',"WRITE") THEN DO
  95.     ADDRESS "WRITE"
  96.     MODIFYSCREEN 1
  97.   END
  98. END
  99.